home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / wbcontrolloop.s < prev    next >
Text File  |  1997-01-31  |  48KB  |  2,476 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'AB3D1:includes/titlescrnraw',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'AB3D2:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43.  
  44.  
  45.  
  46. ProtValA: dc.l 0
  47. ProtValB: dc.l 0
  48. ProtValC: dc.l 0
  49. ProtValD: dc.l 0
  50. ProtValE: dc.l 0
  51. ProtValF: dc.l 0
  52. ProtValG: dc.l 0
  53. ProtValH: dc.l 0
  54. ProtValI: dc.l 0
  55. ProtValJ: dc.l 0
  56. ProtValK: dc.l 0
  57. ProtValL: dc.l 0
  58. ProtValM: dc.l 0
  59. ProtValN: dc.l 0
  60.  
  61.  
  62. KVALTOASC:
  63.         Dc.b    " `  "," 1  "," 2  "," 3  "
  64.         dc.b    " 4  "," 5  "," 6  "," 7  "
  65.         dc.b    " 8  "," 9  "
  66. ; 10
  67.         Dc.b    " 0  "," -  "," +  "," \  "
  68.         dc.b     '    ','    '," Q  "," W  "
  69.         dc.b    " E  "," R  "
  70. ; 20
  71.         Dc.b    " T  "," Y  "," U  "," I  "
  72.         dc.b    " O  "," P  "," [  "," ]  "
  73.         dc.b    '    ','KP1 '
  74. ; 30
  75.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  76.         dc.b    " D  "," F  "," G  "," H  "
  77.         dc.b    " J  "," K  "
  78. ;40
  79.         Dc.b    " L  "," ;  "," #  ",'    '
  80.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  81.         dc.b    '    '," Z  "
  82. ;50
  83.         Dc.b    " X  "," C  "," V  "," B  "
  84.         dc.b    " N  "," M  "," ,  "," .  "
  85.         dc.b     " /  ",'    '
  86. ;60
  87.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  88.         dc.b    'SPC ','<-- ','TAB ','ENT '
  89.         dc.b    'RTN ','ESC '
  90. ;70
  91.         Dc.b    'DEL ','    ','    ','    '
  92.         dc.b    'KP- ','    ','UCK ','DCK '
  93.         dc.b    'RCK ','LCK '
  94. ;80
  95.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  96.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  97.         dc.b    'FK9 ','FK0 '
  98. ;90
  99.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  100.         dc.b    'KP+ ','HLP ','LSH ','RSH '
  101.         dc.b    'CPL ','CTL '
  102. ;100
  103.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  104.         dc.b    '    ','    ','    ','    '
  105.         dc.b    '    ','    '
  106.         Dc.b    '    ','    ','    ','    '
  107.         dc.b    '    ','    ','    ','    '
  108.         dc.b    '    ','    '
  109.  
  110.  even
  111.  
  112. FINISHEDLEVEL: dc.w 0
  113.  
  114.  
  115. START:
  116.  
  117.  move.b #'n',mors  
  118.  
  119. ************************************88
  120. * TAKE OUT WHEN PLAYING MODULE AGAIN
  121. ********************************
  122. ProtChkBLev1:
  123.     PRSDF
  124.     PRSDE
  125. ************************************
  126.  
  127. ; move.l #PROTCALLENC,a0
  128. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  129. ; move.l #$75055345,d0
  130. ;codeitup:
  131. ; sub.l d0,(a0)+
  132. ; ror.l #1,d0
  133. ; dbra d1,codeitup
  134. ; rts
  135.  
  136.  jsr Open256Screen
  137.  
  138. ProtChkCLev1:
  139.  PRSDA
  140.  
  141. ; move.w #$7201,titleplanes
  142.  
  143.  move.l 4.w,a6
  144.  move.l #doslibname,a1
  145.  moveq #0,d0
  146.  jsr -552(a6)
  147.  move.l d0,doslib
  148.  PRSDS
  149. ; jsr stuff
  150.  
  151.  jsr _InitLowLevel
  152.  
  153. ; jsr CLEARTITLEPAL
  154.  
  155. ProtChkDLev1:
  156.  PRSDT
  157.  
  158. ; move.w #$20,$dff1dc
  159. ; move.l #titlecop,$dff080
  160.  PRSDV
  161. ; move.w #$87c0,$dff000+dmacon
  162. ; move.w #$8020,$dff000+dmacon
  163. ProtChkMLev1:
  164.  move.w $dff006,d0
  165.  lea RVAL2-100(pc),a0
  166.  add.w d0,100(a0)
  167.  
  168.  bsr GETTITLEMEM
  169. ProtChkELev1:
  170.  PRSDU
  171. ; bsr CLROPTSCRN
  172.  
  173. ; bsr SETUPTITLESCRN
  174.  
  175. ; jsr _InitPlayer
  176.  
  177. ; move.l #INTROTUNENAME,a0
  178. ; jsr _LoadModule
  179. ; move.l d0,INTROTUNEADDR
  180.  PRSDY
  181. ; move.l d0,a0
  182. ; jsr _InitModule
  183.  
  184. ; move.l INTROTUNEADDR,a0
  185. ; jsr _PlayModule
  186. ProtChkFLev1:
  187.  PRSDa
  188. ; bsr LOADTITLESCRN2
  189.  
  190.  FLASHER $0f0,$fff
  191.  
  192.  move.w #0,FADEVAL
  193.  move.w #63,FADEAMOUNT
  194.  bsr FADEUPTITLE
  195.  PRSDB
  196.  jsr LOADWALLS
  197.  jsr LOADFLOOR
  198.  jsr LOADOBS
  199.  PRSDZ
  200.  
  201.  move.w #31,FADEAMOUNT
  202.  PRSDC
  203.  bsr FADEDOWNTITLE 
  204.  
  205. ; IFEQ CD32VER 
  206. ; bsr ASKFORDISK
  207. ; ENDC
  208. ; IFNE CD32VER
  209.  PRSDD
  210. ; ENDC
  211.  
  212.  jsr LOAD_SFX
  213. ; jsr _StopPlayer
  214.  PRSDW
  215.  PRSDX
  216. ; jsr _RemPlayer
  217.  
  218.  
  219.  IFNE CD32VER
  220.  move.l doslib,a6
  221.  move.l #115,d1
  222.  jsr -198(a6)
  223.  ENDC
  224.  
  225. ; move.l #newblag,$80
  226. ; trap #0
  227. ; bra JUMPPASTIT
  228. ; rts
  229. ;
  230. ;newblag:
  231.  
  232.  
  233. ProtChkGLev1:
  234. ; bsr PROTSETUP
  235.  bsr DEFAULTGAME
  236.  
  237. ; move.l INTROTUNEADDR,a0
  238. ; jsr _UnLoadModule
  239.  
  240. ; IFEQ CD32VER
  241. ; jsr KInt_Init
  242. ; ENDC
  243. ProtChkHLev1:
  244. ; rte
  245. ;
  246. ;JUMPPASTIT:
  247. ; 
  248.  
  249. BACKTOMENU:
  250.  
  251.  jsr CLEARKEYBOARD
  252.  
  253. ; cmp.b #'s',mors
  254. ; beq.s BACKTOSLAVE
  255. ; cmp.b #'m',mors
  256. ; beq.s BACKTOMASTER
  257. ; bsr READMAINMENU
  258. ; bra DONEMENU
  259. ;BACKTOMASTER:
  260. ; bsr MASTERMENU
  261. ; bra DONEMENU
  262. ;BACKTOSLAVE:
  263. ; bsr SLAVEMENU
  264. ;DONEMENU:
  265.  
  266.  
  267.  bsr WAITREL
  268.  
  269. ; IFEQ CD32VER
  270. ; move.l OLDKINT,$68.w
  271. ; ENDC
  272.  
  273.  bsr CLRSPRITES
  274.  
  275.  move.w #31,FADEAMOUNT
  276.  bsr FADEUPTITLE
  277.  move.w #63,FADEAMOUNT
  278.  bsr FADEDOWNTITLE
  279.  
  280.  move.w #$0201,titleplanes
  281.  
  282.     FILTER
  283.     
  284.  tst.b SHOULDQUIT
  285.  bne QUITTT
  286.  
  287.  bsr RELEASETITLEMEM
  288.  
  289.   
  290. ; jsr LOADBOTPIC
  291.  
  292.   
  293.  clr.b FINISHEDLEVEL
  294.  
  295.  move.w #0,PLR1s_angpos
  296.  move.w #0,PLR2s_angpos
  297.  move.w #0,PLR1_angpos
  298.  move.w #0,PLR2_angpos
  299.  move.b #0,PLR1_GunSelected
  300.  move.b #0,PLR2_GunSelected
  301.  
  302. **************************8
  303.  clr.b NASTY
  304. *************************** 
  305.  
  306.  
  307.     jsr PLAYTHEGAME
  308.  
  309. ; bsr FREEBOTMEM 
  310.  
  311. ; bra QUITTT
  312.  
  313.  tst.b FINISHEDLEVEL
  314.  beq dontusestats
  315.  bsr CALCPASSWORD
  316. dontusestats:
  317.  bsr PASSLINETOGAME
  318.  bsr GETSTATS
  319.  
  320.  bsr GETTITLEMEM
  321. ; bsr CLROPTSCRN
  322. ; bsr SETUPTITLESCRN
  323.  
  324. ; bsr LOADTITLESCRN2
  325. ; move.w #$7201,titleplanes
  326.  
  327. ; move.w #$20,$dff1dc
  328. ; move.l #titlecop,$dff080
  329. ; move.w #$87c0,$dff000+dmacon
  330. ; move.w #$8020,$dff000+dmacon 
  331.  
  332.  move.w #0,FADEVAL
  333.  move.w #63,FADEAMOUNT
  334.  bsr FADEUPTITLE
  335.  
  336.  move.w #31,FADEAMOUNT
  337.  bsr FADEDOWNTITLE 
  338.  
  339. ; IFEQ CD32VER
  340. ; jsr KInt_Init
  341. ; ENDC
  342.  
  343.  bra BACKTOMENU
  344.  
  345. QUITTT:
  346.  
  347.  move.l LEVELDATA,d1
  348.  move.l d1,a1
  349.  move.l #120000,d0
  350.  move.l 4.w,a6
  351.  jsr -210(a6)
  352.  
  353.  move.l TEXTSCRN,d1
  354.  move.l d1,a1
  355.  move.l #10240*2,d0
  356.  move.l 4.w,a6
  357.  jsr -210(a6)
  358.  
  359.  move.l FASTBUFFER,d1    
  360.  move.l #2*320*256,d0
  361.  move.l 4.w,a6
  362.  jsr -210(a6)
  363.  
  364.  jsr RELEASEWALLMEM
  365.  jsr RELEASESAMPMEM
  366.  jsr RELEASEFLOORMEM
  367.  jsr RELEASEOBJMEM
  368.   
  369.  move.l old,$dff080
  370.  move.l 4.w,a6
  371.  lea VBLANKInt,a1
  372.  moveq #INTB_COPER,d0
  373.  jsr _LVORemIntServer(a6)
  374.  
  375.  move.l 4.w,a6
  376.  lea KEYInt,a1
  377.  moveq #INTB_PORTS,d0
  378.  jsr _LVORemIntServer(a6)
  379.  
  380. ; move.w #$f8e,$dff1dc
  381. ;
  382. ; move.l old,$dff080
  383. ; move.w _storeint,d0
  384. ; or.w d0,$dff000+intena
  385.  
  386. ; move.l    4.w,a6
  387. ; jsr    _LVOPermit(a6)
  388.  
  389.  move.l #0,d0
  390.  
  391.  rts
  392.  
  393. SSTACK: dc.l 0
  394.  
  395. ; KEY OPTIONS:
  396. CONTROLBUFFER:
  397. turn_left_key:
  398.  dc.b $4f
  399. turn_right_key:
  400.  dc.b $4e
  401. forward_key:
  402.  dc.b $4c
  403. backward_key:
  404.  dc.b $4d
  405. fire_key:
  406.  dc.b $65
  407. operate_key:
  408.  dc.b $40
  409. run_key:
  410.  dc.b $61
  411. force_sidestep_key:
  412.  dc.b $67
  413. sidestep_left_key:
  414.  dc.b $39
  415. sidestep_right_key:
  416.  dc.b $3a
  417. duck_key:
  418.  dc.b $22
  419. look_behind_key:
  420.  dc.b $28
  421.  
  422. templeftkey: dc.b 0
  423. temprightkey: dc.b 0
  424. tempslkey: dc.b 0 
  425. tempsrkey: dc.b 0
  426.  
  427.  even 
  428.  
  429. GETSTATS:
  430. ; CHANGE PASSWORD INTO RAW DATA
  431.  
  432.  move.b PASSBUFFER,d0
  433.  and.w #$7f,d0
  434.  move.w d0,PLR1_energy
  435.  move.b PASSBUFFER+1,d0
  436.  btst #7,d0
  437.  sne PLR1_GunData+32+7
  438.  btst #6,d0
  439.  sne PLR1_GunData+32*2+7
  440.  btst #5,d0
  441.  sne PLR1_GunData+32*4+7
  442.  btst #4,d0
  443.  sne PLR1_GunData+32*7+7
  444.  and.w #%1111,d0
  445.  move.w d0,MAXLEVEL
  446.  move.b PASSBUFFER+2,d0
  447.  and.w #$7f,d0
  448.  lsl.w #3,d0
  449.  move.w d0,PLR1_GunData
  450.  move.b PASSBUFFER+3,d0
  451.  and.w #$7f,d0
  452.  lsl.w #3,d0
  453.  move.w d0,PLR1_GunData+32
  454.  move.b PASSBUFFER+4,d0
  455.  and.w #$7f,d0
  456.  lsl.w #3,d0
  457.  move.w d0,PLR1_GunData+32*2
  458.  move.b PASSBUFFER+5,d0
  459.  and.w #$7f,d0
  460.  lsl.w #3,d0
  461.  move.w d0,PLR1_GunData+32*4
  462.  move.b PASSBUFFER+6,d0
  463.  and.w #$7f,d0
  464.  lsl.w #3,d0
  465.  move.w d0,PLR1_GunData+32*7
  466.  rts
  467.  
  468.  
  469. SETPLAYERS:
  470.  
  471.  move.w PLOPT,d0
  472.  add.b #'a',d0
  473.  move.b d0,LEVA
  474.  move.b d0,LEVB
  475.  move.b d0,LEVC
  476.  move.b d0,LEVD
  477.  
  478.  cmp.b #'s',mors
  479.  beq SLAVESETUP
  480.  cmp.b #'m',mors
  481.  beq MASTERSETUP
  482.  st NASTY
  483. onepla:
  484.  rts
  485.  
  486. NASTY: dc.w 0
  487.  
  488. MASTERSETUP:
  489.  bsr TWOPLAYER
  490.  clr.b NASTY
  491.  move.w PLOPT,d0
  492.  jsr SENDFIRST
  493.  rts
  494.  
  495. SLAVESETUP:
  496.  bsr TWOPLAYER
  497.  CLR.B NASTY
  498.  jsr RECFIRST
  499.  move.w d0,PLOPT
  500.  add.b #'a',d0
  501.  move.b d0,LEVA
  502.  move.b d0,LEVB
  503.  move.b d0,LEVC
  504.  rts
  505.      
  506. ********************************************************
  507.  
  508. ASKFORDISK:
  509.  lea RVAL1+300(pc),a0
  510.  lea RVAL2+900(pc),a1
  511.  PRSDD
  512.  move.w #3,OptScrn
  513.  bsr DRAWOPTSCRN
  514.  
  515. ProtChkNLev1:
  516. .wtrel:
  517.  btst #7,$bfe001
  518.  beq.s .wtrel
  519.  
  520. wtclick:
  521.  add.w #$235,-300(a0)
  522.  add.w #$4533,-900(a0)
  523.  btst #6,$bfe001
  524.  bne.s wtclick
  525.  
  526.  rts
  527.  
  528. CLRSPRITES: 
  529.  move.l #nullspr,d0
  530.  move.w d0,tsp0l
  531.  move.w d0,tsp1l
  532.  move.w d0,tsp2l
  533.  move.w d0,tsp3l
  534.  move.w d0,tsp4l
  535.  move.w d0,tsp5l
  536.  move.w d0,tsp6l
  537.  move.w d0,tsp7l
  538.  swap d0
  539.  move.w d0,tsp0h
  540.  move.w d0,tsp1h
  541.  move.w d0,tsp2h
  542.  move.w d0,tsp3h
  543.  move.w d0,tsp4h
  544.  move.w d0,tsp5h
  545.  move.w d0,tsp6h
  546.  move.w d0,tsp7h 
  547.  rts
  548.  
  549. ********************************************************
  550.  
  551. READMAINMENU:
  552.  
  553.  
  554.  move.b #'n',mors
  555.  
  556.  move.w MAXLEVEL,d0
  557.  
  558.  move.l #CURRENTLEVELLINE,a1
  559.  muls #40,d0
  560.  move.l #LEVEL_OPTS,a0
  561.  add.l d0,a0
  562.  bsr PUTINLINE
  563.  
  564.  
  565.  
  566. ; Stay here until 'play game' is selected.
  567.  
  568.  move.w #0,OptScrn
  569.  bsr DRAWOPTSCRN
  570.  move.w #1,OPTNUM
  571.  
  572.  bsr HIGHLIGHT
  573.  
  574.  
  575.  
  576.  bsr WAITREL
  577. .rdlop:
  578.  
  579.  bsr CHECKMENU
  580.  tst.w d0
  581.  blt.s .rdlop
  582.  
  583.  bne .noopt
  584.  
  585.  bra MASTERMENU
  586.  
  587. .noopt:
  588.  
  589.  cmp.w #5,d0
  590.  bne.s .noqui
  591.  st SHOULDQUIT
  592.  bra playgame
  593. .noqui
  594.  
  595.  cmp.w #1,d0
  596.  beq playgame
  597.  
  598.  cmp.w #2,d0
  599.  bne .nocontrol
  600.  
  601.  bsr CHANGECONTROLS
  602.  
  603.  move.w #0,OptScrn
  604.  bsr DRAWOPTSCRN
  605.  move.w #0,OPTNUM
  606.  
  607.  bsr HIGHLIGHT
  608.  
  609.  bsr WAITREL
  610.  bra .rdlop
  611.  
  612. .nocontrol:
  613.  
  614.  cmp.w #3,d0
  615.  bne .nocred
  616.  bsr SHOWCREDITS
  617.  move.w #0,OptScrn
  618.  bsr DRAWOPTSCRN
  619.  move.w #1,OPTNUM
  620.  
  621.  bsr HIGHLIGHT
  622.  
  623.  bsr WAITREL
  624.  bra .rdlop
  625.  
  626.  
  627. .nocred:
  628.  
  629.  cmp.w #4,d0
  630.  bne playgame
  631.  bsr WAITREL
  632.  
  633.  move.l #PASSWORDLINE+12,a0
  634.  moveq #15,d2
  635. .clrline:
  636.  move.b #32,(a0)+
  637.  dbra d2,.clrline 
  638.  move.w #0,OptScrn
  639.  bsr DRAWOPTSCRN
  640.  
  641.  IFEQ CD32VER
  642.  clr.b lastpressed
  643.  move.l #PASSWORDLINE+12,a0
  644.  move.w #0,d1
  645. .ENTERPASS:
  646.  tst.b lastpressed
  647.  beq .ENTERPASS
  648.  move.b lastpressed,d2
  649.  move.b #0,lastpressed
  650.  move.l #KVALTOASC,a1
  651.  
  652.  cmp.l #'<-- ',(a1,d2.w*4)
  653.  bne .nodel
  654.  
  655.  tst.b d1
  656.  beq .nodel
  657.  
  658.  subq #1,d1
  659.  move.b #32,-(a0)
  660.  movem.l d0-d7/a0-a6,-(a7)
  661.  bsr JUSTDRAWIT
  662.  movem.l (a7)+,d0-d7/a0-a6
  663.  bra .ENTERPASS
  664.  
  665. .nodel:
  666.  
  667.  cmp.l #'RTN ',(a1,d2.w*4)
  668.  beq .FORGETIT
  669.  cmp.l #'ESC ',(a1,d2.w*4)
  670.  beq .FORGETIT
  671.  move.b 1(a1,d2.w*4),d2
  672.  cmp.b #65,d2
  673.  blt .ENTERPASS
  674.  cmp.b #'Z',d2
  675.  bgt .ENTERPASS
  676.  move.b d2,(a0)+
  677.  move.w #0,OptScrn
  678.  movem.l d0-d7/a0-a6,-(a7)
  679.  bsr JUSTDRAWIT
  680.  movem.l (a7)+,d0-d7/a0-a6
  681.  add.w #1,d1
  682.  cmp.w #16,d1
  683.  blt .ENTERPASS
  684.  
  685.  ENDC
  686.  IFNE CD32VER
  687.  move.l #PASSWORDLINE+12,a0
  688.  move.w #15,d0
  689. .ENTERPASS:
  690.  bsr GETACHAR
  691.  dbra d0,.ENTERPASS
  692.  ENDC
  693.  
  694.  bsr PASSLINETOGAME
  695.  tst.w d0
  696.  bne .FORGETIT
  697.  
  698.  bsr GETSTATS
  699.  move.w MAXLEVEL,d0
  700.  move.l #CURRENTLEVELLINE,a1
  701.  muls #40,d0
  702.  move.l #LEVEL_OPTS,a0
  703.  add.l d0,a0
  704.  bsr PUTINLINE
  705.  
  706. .FORGETIT:
  707.  bsr WAITREL
  708.  bsr CALCPASSWORD
  709.  
  710.  move.w #0,OptScrn
  711.  bsr DRAWOPTSCRN
  712.  
  713.  move.w #1,OPTNUM
  714.  
  715.  bsr HIGHLIGHT
  716.  
  717.  bra .rdlop 
  718.  
  719. playgame:
  720.  move.w MAXLEVEL,PLOPT
  721.  rts
  722.  
  723. SHOULDQUIT: dc.w 0
  724.  
  725. LEVELSELECTED:
  726.  dc.w 0
  727.  
  728.  IFNE CD32VER
  729. GETACHAR:
  730.  moveq #0,d7
  731.  move.b #'A',(a0)
  732.  movem.l d0-d7/a0-a6,-(a7)
  733.  jsr JUSTDRAWIT
  734.  movem.l (a7)+,d0-d7/a0-a6
  735.  
  736. .wtnum:
  737.  btst #1,$dff00c
  738.  sne d1
  739.  btst #1,$dff00d
  740.  sne d2
  741.  btst #0,$dff00c
  742.  sne d3
  743.  btst #0,$dff00d
  744.  sne d4
  745.  
  746.  eor.b d1,d3
  747.  eor.b d2,d4
  748.  
  749.  tst.b d1
  750.  beq.s .NODELETE
  751.  cmp.w #15,d0
  752.  beq.s .NODELETE
  753.  move.b #32,(a0)
  754.  subq #1,a0
  755.  addq #1,d0
  756.  move.b (a0),d7
  757.  sub.b #'A',d7
  758.  movem.l d0-d7/a0-a6,-(a7)
  759.  jsr JUSTDRAWIT
  760.  movem.l (a7)+,d0-d7/a0-a6
  761.  jsr WAITFORNOPRESS
  762.  bra .wtnum
  763. .NODELETE
  764.  
  765.  tst.b d4
  766.  bne.s .PREVNUM
  767.  tst.b d3
  768.  bne.s .NEXTNUM
  769.  btst #7,$bfe001
  770.  bne.s .wtnum
  771.  addq #1,a0
  772.  jsr WAITFORNOPRESS
  773.  rts
  774.  
  775. .PREVNUM:
  776.  subq #1,d7
  777.  bge.s .nonegg
  778.  moveq #15,d7
  779. .nonegg:
  780.  move.b d7,d1
  781.  add.b #'A',d1
  782.  move.b d1,(a0)
  783.  movem.l d0-d7/a0-a6,-(a7)
  784.  jsr JUSTDRAWIT
  785.  movem.l (a7)+,d0-d7/a0-a6
  786.  
  787.  jsr WAITFORNOPRESS
  788.  
  789.  bra .wtnum
  790.  
  791. .NEXTNUM:
  792.  addq #1,d7
  793.  cmp.w #15,d7
  794.  ble.s .nobigg
  795.  moveq #0,d7
  796. .nobigg:
  797.  move.b d7,d1
  798.  add.b #'A',d1
  799.  move.b d1,(a0)
  800.  movem.l d0-d7/a0-a6,-(a7)
  801.  jsr JUSTDRAWIT
  802.  movem.l (a7)+,d0-d7/a0-a6
  803.  jsr WAITFORNOPRESS
  804.  bra .wtnum
  805.  rts
  806.  ENDC
  807.  
  808.  
  809. MASTERMENU:
  810.  
  811.  move.b #'m',mors
  812.  
  813.  move.w #0,LEVELSELECTED
  814.  
  815.  move.w #0,d0 
  816.  move.l #CURRENTLEVELLINEM,a1
  817.  muls #40,d0
  818.  move.l #LEVEL_OPTS,a0
  819.  add.l d0,a0
  820.  bsr PUTINLINE
  821.  
  822. ; Stay here until 'play game' is selected.
  823.  
  824.  move.w #4,OptScrn
  825.  bsr DRAWOPTSCRN
  826.  move.w #1,OPTNUM
  827.  
  828.  bsr HIGHLIGHT
  829.  
  830.  bsr WAITREL
  831. .rdlop:
  832.  bsr CHECKMENU
  833.  tst.w d0
  834.  blt.s .rdlop
  835.  bsr WAITREL
  836.  
  837.  cmp.w #1,d0
  838.  bne.s .nonextlev
  839.  
  840.  move.w LEVELSELECTED,d0
  841.  add.w #1,d0
  842.  cmp.w MAXLEVEL,d0
  843.  blt .nowrap
  844.  moveq #0,d0
  845. .nowrap:
  846.  move.w d0,LEVELSELECTED
  847.  move.l #CURRENTLEVELLINEM,a1
  848.  muls #40,d0
  849.  move.l #LEVEL_OPTS,a0
  850.  add.l d0,a0
  851.  bsr PUTINLINE
  852.  bsr JUSTDRAWIT
  853.  bra .rdlop
  854.  
  855. .nonextlev:
  856.  cmp.w #2,d0
  857.  beq .playgame
  858.  
  859.  cmp.w #0,d0
  860.  bne .noopt
  861.  
  862.  bra SLAVEMENU
  863.  
  864. .noopt:
  865.  
  866.  cmp.w #3,d0
  867.  bne .nocontrol
  868.  
  869.  bsr CHANGECONTROLS
  870.  
  871.  move.w #4,OptScrn
  872.  bsr DRAWOPTSCRN
  873.  move.w #0,OPTNUM
  874.  
  875.  bsr HIGHLIGHT
  876.  
  877.  bsr WAITREL
  878.  bra .rdlop
  879.  
  880. .nocontrol:
  881.  
  882. .playgame
  883.  
  884.  move.w LEVELSELECTED,PLOPT
  885.  rts
  886.  
  887. SLAVEMENU:
  888.  
  889.  move.b #'s',mors
  890.  
  891. ; Stay here until 'play game' is selected.
  892.  
  893.  move.w #5,OptScrn
  894.  bsr DRAWOPTSCRN
  895.  move.w #1,OPTNUM
  896.  
  897.  bsr HIGHLIGHT
  898.  
  899.  bsr WAITREL
  900. .rdlop:
  901.  bsr CHECKMENU
  902.  tst.w d0
  903.  blt.s .rdlop
  904.  bsr WAITREL
  905.  
  906.  cmp.w #1,d0
  907.  beq .playgame
  908.  
  909.  cmp.w #0,d0
  910.  bne .noopt
  911.  
  912.  bra READMAINMENU
  913.  
  914. .noopt:
  915.  
  916.  cmp.w #2,d0
  917.  bne .nocontrol
  918.  
  919.  bsr CHANGECONTROLS
  920.  
  921.  move.w #0,OptScrn
  922.  bsr DRAWOPTSCRN
  923.  move.w #0,OPTNUM
  924.  
  925.  bsr HIGHLIGHT
  926.  
  927.  bsr WAITREL
  928.  bra .rdlop
  929.  
  930. .nocontrol:
  931. .playgame:
  932.  
  933.  rts
  934.  
  935. TWOPLAYER:
  936.  move.w #0,OldEnergy
  937.  move.w #127,Energy
  938.  jsr EnergyBar
  939.  
  940.  move.w #63,OldAmmo
  941.  move.w #0,Ammo
  942.  jsr AmmoBar
  943.  move.w #0,OldAmmo
  944.  
  945.  move.w #127,PLR1_energy
  946.  move.w #127,PLR2_energy 
  947.  move.w #160,PLR1_GunData    ; 10 shots pistol
  948.  st PLR1_GunData+7
  949.  
  950.  st.b PLR1_GunData+32+7
  951.  move.w #80*4,PLR1_GunData+32
  952.  
  953.  st.b PLR1_GunData+64+7
  954.  move.w #80*4,PLR1_GunData+64
  955.  
  956.  st.b PLR1_GunData+32*3+7
  957.  move.w #80*4,PLR1_GunData+32*3
  958.  
  959.  st.b PLR1_GunData+32*4+7
  960.  move.w #80*4,PLR1_GunData+32*4
  961.  
  962.  st.b PLR1_GunData+32*7+7
  963.  move.w #80*4,PLR1_GunData+32*7
  964.  
  965.  move.b #0,PLR1_GunSelected
  966.  
  967.  move.w #160,PLR2_GunData    ; 10 shots pistol
  968.  st PLR2_GunData+7
  969.  st.b PLR2_GunData+32+7
  970.  move.w #80*4,PLR2_GunData+32
  971.  
  972.  st.b PLR2_GunData+64+7
  973.  move.w #80*4,PLR2_GunData+64
  974.  
  975.  st.b PLR2_GunData+32*3+7
  976.  move.w #80*4,PLR2_GunData+32*3
  977.  
  978.  st.b PLR2_GunData+32*4+7
  979.  move.w #80*4,PLR2_GunData+32*4
  980.  
  981.  st.b PLR2_GunData+32*7+7
  982.  move.w #80*4,PLR2_GunData+32*7
  983.  move.b #0,PLR2_GunSelected
  984.  rts
  985.  
  986. newdum:
  987.  rts
  988.  
  989. DEFAULTGAME:
  990.  move.w #0,MAXLEVEL
  991.  move.w #5,CHEATNUM
  992.  move.l #CHEATFRAME-200000,CHEATPTR
  993.  
  994.  move.w #0,OldEnergy
  995.  move.w #127,Energy
  996.  jsr EnergyBar
  997.  
  998.  move.w #63,OldAmmo
  999.  move.w #0,Ammo
  1000.  jsr AmmoBar
  1001.  move.w #0,OldAmmo
  1002.  
  1003.  move.w #127,PLR1_energy
  1004.  move.w #127,PLR2_energy 
  1005.  move.w #160,PLR1_GunData    ; 10 shots pistol
  1006.  st PLR1_GunData+7
  1007.  clr.b PLR1_GunData+32+7
  1008.  clr.w PLR1_GunData+32
  1009.  clr.b PLR1_GunData+64+7
  1010.  clr.w PLR1_GunData+64
  1011.  clr.b PLR1_GunData+32*3+7
  1012.  clr.w PLR1_GunData+32*3
  1013.  clr.b PLR1_GunData+32*4+7
  1014.  clr.w PLR1_GunData+32*4
  1015.  clr.b PLR1_GunData+32*7+7
  1016.  clr.w PLR1_GunData+32*7
  1017.  move.b #0,PLR1_GunSelected
  1018.  
  1019. ProtChkILev1:
  1020. ************************************************
  1021. * TEMPORARY MEASURE: REMOVE BEFORE RELEASE *****
  1022. ************************************************
  1023.  
  1024.  
  1025. ************************************************
  1026.  
  1027.  move.w #160,PLR2_GunData    ; 10 shots pistol
  1028.  st PLR2_GunData+7
  1029.  clr.b PLR2_GunData+32+7
  1030.  clr.w PLR2_GunData+32
  1031.  clr.b PLR2_GunData+64+7
  1032.  clr.w PLR2_GunData+64
  1033.  clr.b PLR2_GunData+32*3+7
  1034.  clr.w PLR2_GunData+32*3
  1035.  clr.b PLR2_GunData+32*4+7
  1036.  clr.w PLR2_GunData+32*4
  1037.  clr.b PLR2_GunData+32*7+7
  1038.  clr.w PLR2_GunData+32*7
  1039.  move.b #0,PLR2_GunSelected
  1040.  
  1041.  bsr CALCPASSWORD
  1042.  
  1043.  rts
  1044.  
  1045. CHKPROT: dc.w 0
  1046.  
  1047. GETPARITY:
  1048.  move.w #6,d3
  1049. .calcparity:
  1050.  btst d3,d0
  1051.  beq.s .nochange
  1052.  bchg #7,d0
  1053. .nochange:
  1054.  dbra d3,.calcparity
  1055.  rts
  1056.  
  1057. CHECKPARITY:
  1058.  move.w #6,d3
  1059.  move.b #$0,d2
  1060. .calcparity:
  1061.  btst d3,d0
  1062.  beq.s .nochange
  1063.  bchg #7,d2
  1064. .nochange:
  1065.  dbra d3,.calcparity
  1066.  move.b d0,d1
  1067.  and.b #$80,d1
  1068.  eor.b d1,d2
  1069.  sne.s d5
  1070.  rts
  1071.  
  1072. CALCPASSWORD:
  1073.  move.b PLR1_energy+1,d0
  1074.  bsr GETPARITY
  1075.  move.b d0,PASSBUFFER
  1076.  moveq #0,d0
  1077.  tst.b PLR1_GunData+32+7
  1078.  sne d0
  1079.  lsl.w #1,d0
  1080.  tst.b PLR1_GunData+64+7
  1081.  sne d0
  1082.  lsl.w #1,d0
  1083.  tst.b PLR1_GunData+32*4+7
  1084.  sne d0
  1085.  lsl.w #1,d0
  1086.  tst.b PLR1_GunData+32*7+7
  1087.  sne d0
  1088.  lsr.w #3,d0
  1089.  and.b #%11110000,d0
  1090.  or.b MAXLEVEL+1,d0
  1091.  move.b d0,PASSBUFFER+1
  1092.  eor.b #%10110101,d0
  1093.  neg.b d0
  1094.  add.b #50,d0
  1095.  move.b d0,PASSBUFFER+7
  1096.  
  1097.  move.w PLR1_GunData,d0
  1098.  lsr.w #3,d0
  1099.  bsr GETPARITY
  1100.  move.b d0,PASSBUFFER+2
  1101.  move.w PLR1_GunData+32,d0
  1102.  lsr.w #3,d0
  1103.  bsr GETPARITY
  1104.  move.b d0,PASSBUFFER+3
  1105.  move.w PLR1_GunData+32*2,d0
  1106.  lsr.w #3,d0
  1107.  bsr GETPARITY
  1108.  move.b d0,PASSBUFFER+4
  1109.  move.w PLR1_GunData+32*4,d0
  1110.  lsr.w #3,d0
  1111.  bsr GETPARITY
  1112.  move.b d0,PASSBUFFER+5
  1113.  move.w PLR1_GunData+32*7,d0
  1114.  lsr.w #3,d0
  1115.  bsr GETPARITY
  1116.  move.b d0,PASSBUFFER+6
  1117.  
  1118.  move.w #3,d0
  1119.  move.l #PASSBUFFER,a0
  1120.  move.l #PASSBUFFER+8,a1
  1121.  move.l #PASS,a2
  1122.  moveq #0,d4
  1123. mixemup:
  1124.  move.b (a0)+,d1
  1125.  move.b -(a1),d2
  1126.  not.b d2
  1127.  moveq #0,d3
  1128.  lsr.b #1,d1
  1129.  addx.w d3,d3
  1130.  lsr.b #1,d2
  1131.  addx.w d3,d3
  1132.  lsr.b #1,d1
  1133.  addx.w d3,d3
  1134.  lsr.b #1,d2
  1135.  addx.w d3,d3
  1136.  lsr.b #1,d1
  1137.  addx.w d3,d3
  1138.  lsr.b #1,d2
  1139.  addx.w d3,d3
  1140.  lsr.b #1,d1
  1141.  addx.w d3,d3
  1142.  lsr.b #1,d2
  1143.  addx.w d3,d3
  1144.  lsr.b #1,d1
  1145.  addx.w d3,d3
  1146.  lsr.b #1,d2
  1147.  addx.w d3,d3
  1148.  lsr.b #1,d1
  1149.  addx.w d3,d3
  1150.  lsr.b #1,d2
  1151.  addx.w d3,d3
  1152.  lsr.b #1,d1
  1153.  addx.w d3,d3
  1154.  lsr.b #1,d2
  1155.  addx.w d3,d3
  1156.  lsr.b #1,d1
  1157.  addx.w d3,d3
  1158.  lsr.b #1,d2
  1159.  addx.w d3,d3
  1160.  move.w d3,(a2)+
  1161.  
  1162.  dbra d0,mixemup
  1163.  
  1164.  move.l #PASSWORDLINE+12,a0
  1165.  move.l #PASS,a1
  1166.  move.w #7,d0
  1167. putinpassline:
  1168.  move.b (a1),d1
  1169.  and.b #%1111,d1
  1170.  add.b #65,d1
  1171.  move.b d1,(a0)+
  1172.  move.b (a1)+,d1
  1173.  lsr.b #4,d1
  1174.  and.b #%1111,d1
  1175.  add.b #65,d1
  1176.  move.b d1,(a0)+
  1177.  dbra d0,putinpassline
  1178.  rts
  1179.  
  1180. PASSLINETOGAME:
  1181.  move.l #PASSWORDLINE+12,a0
  1182.  move.l #PASS,a1
  1183.  move.w #7,d0
  1184. getbuff:
  1185.  move.b (a0)+,d1
  1186.  move.b (a0)+,d2
  1187.  sub.b #65,d1
  1188.  sub.b #65,d2
  1189.  and.b #%1111,d1
  1190.  and.b #%1111,d2
  1191.  lsl.b #4,d2
  1192.  or.b d2,d1
  1193.  move.b d1,(a1)+
  1194.  dbra d0,getbuff
  1195.  
  1196.  move.l #PASS,a0
  1197.  move.l #PASSBUFFER,a1
  1198.  move.l #PASSBUFFER+8,a2
  1199.  move.w #3,d0
  1200.  moveq #0,d4
  1201. unmix:
  1202.  move.w (a0)+,d1
  1203.  moveq #0,d2
  1204.  moveq #0,d3
  1205.  lsr.w #1,d1
  1206.  addx.w d3,d3
  1207.  lsr.w #1,d1
  1208.  addx.w d2,d2
  1209.  lsr.w #1,d1
  1210.  addx.w d3,d3
  1211.  lsr.w #1,d1
  1212.  addx.w d2,d2
  1213.  lsr.w #1,d1
  1214.  addx.w d3,d3
  1215.  lsr.w #1,d1
  1216.  addx.w d2,d2
  1217.  lsr.w #1,d1
  1218.  addx.w d3,d3
  1219.  lsr.w #1,d1
  1220.  addx.w d2,d2
  1221.  lsr.w #1,d1
  1222.  addx.w d3,d3
  1223.  lsr.w #1,d1
  1224.  addx.w d2,d2
  1225.  lsr.w #1,d1
  1226.  addx.w d3,d3
  1227.  lsr.w #1,d1
  1228.  addx.w d2,d2
  1229.  lsr.w #1,d1
  1230.  addx.w d3,d3
  1231.  lsr.w #1,d1
  1232.  addx.w d2,d2
  1233.  lsr.w #1,d1
  1234.  addx.w d3,d3
  1235.  lsr.w #1,d1
  1236.  addx.w d2,d2
  1237.  not.b d3
  1238.  move.b d3,-(a2)
  1239.  move.b d2,(a1)+
  1240.  dbra d0,unmix
  1241.  
  1242.  move.b PASSBUFFER,d0
  1243.  bsr CHECKPARITY
  1244.  tst.b d5
  1245.  bne illega
  1246.  move.b PASSBUFFER+2,d0
  1247.  bsr CHECKPARITY
  1248.  tst.b d5
  1249.  bne illega
  1250.  move.b PASSBUFFER+3,d0
  1251.  bsr CHECKPARITY
  1252.  tst.b d5
  1253.  bne illega
  1254.  move.b PASSBUFFER+4,d0
  1255.  bsr CHECKPARITY
  1256.  tst.b d5
  1257.  bne illega
  1258.  move.b PASSBUFFER+5,d0
  1259.  bsr CHECKPARITY
  1260.  tst.b d5
  1261.  bne illega
  1262.  move.b PASSBUFFER+6,d0
  1263.  bsr CHECKPARITY
  1264.  tst.b d5
  1265.  bne illega
  1266.  
  1267.  move.b PASSBUFFER+1,d0
  1268.  eor.b #%10110101,d0
  1269.  neg.b d0
  1270.  add.b #50,d0
  1271.  cmp.b PASSBUFFER+7,d0
  1272.  bne illega
  1273.  
  1274.  move.w #0,d0
  1275.  rts
  1276.  
  1277. illega:
  1278.  
  1279.  move.w #-1,d0
  1280.  
  1281.  rts
  1282.  
  1283. PASSBUFFER:
  1284.  ds.b 8
  1285.  
  1286. CHECKBUFFER: ds.b 8
  1287.  
  1288. PASS:
  1289.  ds.b 16
  1290.  
  1291. **************************************************
  1292.  
  1293. CHANGECONTROLS:
  1294.  
  1295.  move.w #6,OptScrn
  1296.  bsr DRAWOPTSCRN
  1297.  move.w #0,OPTNUM
  1298.  bsr HIGHLIGHT
  1299.  bsr WAITREL
  1300.  
  1301. .rdlop:
  1302.  bsr CHECKMENU
  1303.  tst.w d0
  1304.  blt.s .rdlop
  1305.  
  1306.  cmp.w #12,d0
  1307.  beq .backtomain
  1308.  
  1309.  move.l #KEY_LINES,a0
  1310.  move.w d0,d1
  1311.  muls #40,d1
  1312.  add.l d1,a0
  1313.  add.w #32,a0
  1314.  move.l #$20202020,(a0)
  1315.  movem.l d0/a0,-(a7)
  1316.  bsr JUSTDRAWIT
  1317.  movem.l (a7)+,d0/a0 
  1318.  
  1319.  clr.b lastpressed
  1320.  
  1321. .wtkey
  1322.  tst.b lastpressed
  1323.  beq .wtkey
  1324.  
  1325.  move.l #CONTROLBUFFER,a1
  1326.  moveq #0,d1
  1327.  move.b lastpressed,d1
  1328.  move.b d1,(a1,d0.w)
  1329.  move.l #KVALTOASC,a1
  1330.  move.l (a1,d1.w*4),(a0)
  1331.  bsr JUSTDRAWIT
  1332.  bsr WAITREL
  1333.  bra .rdlop
  1334.  
  1335. .backtomain:
  1336.  rts
  1337.  
  1338. **************************************************
  1339.  
  1340.  
  1341. MAXLEVEL: dc.w 0
  1342.  
  1343. SHOWCREDITS:
  1344.  move.w #2,OptScrn
  1345.  bsr DRAWOPTSCRN
  1346.  move.w #0,OPTNUM
  1347.  bsr HIGHLIGHT
  1348.  
  1349.  bsr WAITREL
  1350.  
  1351. .rdlop:
  1352.  bsr CHECKMENU
  1353.  tst.w d0
  1354.  blt.s .rdlop
  1355.  
  1356.  bra READMAINMENU
  1357.  
  1358. HELDDOWN:
  1359.  dc.w 0
  1360.  
  1361. WAITREL:
  1362.  
  1363.  movem.l d0/d1/d2/d3,-(a7)
  1364.  
  1365.  move.l #KeyMap,a5
  1366. WAITREL2:
  1367.  btst #7,$bfe001
  1368.  beq.s WAITREL2
  1369.  
  1370.  IFEQ CD32VER
  1371.  tst.b $40(a5)
  1372.  bne.s WAITREL2
  1373.  tst.b $44(a5)
  1374.  bne.s WAITREL2
  1375.  tst.b $4c(a5)
  1376.  bne.s WAITREL2
  1377.  tst.b $4d(a5)
  1378.  bne.s WAITREL2
  1379.  ENDC
  1380.  
  1381.  btst #1,$dff00c
  1382.  sne d0
  1383.  btst #1,$dff00d
  1384.  sne d1
  1385.  btst #0,$dff00c
  1386.  sne d2
  1387.  btst #0,$dff00d
  1388.  sne d3
  1389.  
  1390.  eor.b d0,d2
  1391.  eor.b d1,d3
  1392.  tst.b d2
  1393.  bne.s WAITREL2
  1394.  tst.b d3
  1395.  bne.s WAITREL2
  1396.  
  1397.  
  1398.  movem.l (a7)+,d0/d1/d2/d3
  1399.  rts
  1400.  
  1401. PUTINLINE:
  1402.  moveq #39,d0
  1403. pill
  1404.  move.b (a0)+,(a1)+
  1405.  dbra d0,pill
  1406.  rts
  1407.  
  1408. CHECKMENU:
  1409.  btst #1,$dff00c
  1410.  sne d0
  1411.  btst #1,$dff00d
  1412.  sne d1
  1413.  btst #0,$dff00c
  1414.  sne d2
  1415.  btst #0,$dff00d
  1416.  sne d3
  1417.  
  1418.  eor.b d0,d2
  1419.  eor.b d1,d3
  1420.  
  1421.  move.l #KeyMap,a5
  1422.  move.b $4c(a5),d0
  1423.  move.b $4d(a5),d1
  1424.  or.b d1,d3
  1425.  or.b d0,d2
  1426.  
  1427.  move.w OptScrn,d0
  1428.  move.l #MENUDATA,a0
  1429.  move.l 4(a0,d0.w*8),a0    ; opt data
  1430.  
  1431.  move.w OPTNUM,d0
  1432.  
  1433.  tst.b d2
  1434.  beq.s NOPREV
  1435.  
  1436.  
  1437.  sub.w #1,d0
  1438.  bge.s NOPREV
  1439.  
  1440.  move.w #0,d0 
  1441.  
  1442. NOPREV:
  1443.  
  1444.  tst.b d3
  1445.  beq.s NONEXT
  1446.  
  1447.  bsr WAITREL
  1448.  
  1449.  add.w #1,d0
  1450.  tst.w (a0,d0.w*8)
  1451.  bge.s NONEXT
  1452.  
  1453.  subq #1,d0
  1454.  
  1455. NONEXT:
  1456.  
  1457.  cmp.w OPTNUM,d0
  1458.  beq.s .nochange
  1459.  
  1460.  bsr HIGHLIGHT
  1461.  move.w d0,OPTNUM
  1462.  bsr HIGHLIGHT
  1463.  bsr WAITREL
  1464.  
  1465. .nochange:
  1466.  
  1467.  move.w #-1,d0
  1468.  
  1469.  btst #7,$bfe001
  1470.  beq.s select
  1471.  move.b $40(a5),d1
  1472.  or.b $44(a5),d1
  1473.  tst.b d1
  1474.  beq.s noselect
  1475.  
  1476. select:
  1477.  bsr WAITREL
  1478.  move.w OPTNUM,d0
  1479. noselect:
  1480.  
  1481.  rts
  1482.  
  1483. HIGHLIGHT:
  1484.  
  1485.  SAVEREGS
  1486.  
  1487.  move.w OptScrn,d0
  1488.  move.l #MENUDATA,a0
  1489.  move.l 4(a0,d0.w*8),a0
  1490.  move.w OPTNUM,d0
  1491.  lea (a0,d0.w*8),a0
  1492.  move.w (a0)+,d0    ;left
  1493.  move.w (a0)+,d1    ;top
  1494.  move.w (a0)+,d2    ;width
  1495.  
  1496.  muls #16*8,d1
  1497.  move.l OPTSPRADDR,a1
  1498.  add.w d1,a1
  1499.  add.w #8+16,a1
  1500.  move.l #SCRTOSPR2,a5
  1501.  adda.w d0,a5
  1502.  adda.w d0,a5
  1503.  
  1504. NOTLOP:
  1505.  
  1506.  move.w (a5)+,d3
  1507.  lea (a1,d3.w),a2
  1508.  not.b (a2)
  1509.  not.b 16(a2)
  1510.  not.b 32(a2)
  1511.  not.b 48(a2)
  1512.  not.b 64(a2)
  1513.  not.b 80(a2)
  1514.  not.b 96(a2)
  1515.  not.b 112(a2)
  1516.  not.b 128(a2)
  1517.  subq #1,d2
  1518.  bgt.s NOTLOP
  1519.  
  1520.  GETREGS
  1521.  rts
  1522.  
  1523. SCRTOSPR2:
  1524. val SET 0
  1525.  REPT 6
  1526.  dc.w val+0
  1527.  dc.w val+1
  1528.  dc.w val+2
  1529.  dc.w val+3
  1530.  dc.w val+4
  1531.  dc.w val+5
  1532.  dc.w val+6
  1533.  dc.w val+7
  1534. val SET val+258*16
  1535.  ENDR
  1536.  
  1537. CLROPTSCRN:
  1538.  
  1539.  move.l #$2cdfea,d0
  1540.  move.w (a4,d0.l),d0
  1541.  add.w d0,RVAL2
  1542.  
  1543.  move.l OPTSPRADDR,a0
  1544.  lea 16(a0),a1
  1545.  lea 16+(258*16)(a0),a2
  1546.  lea 16+(258*16*2)(a0),a3
  1547.  lea 16+(258*16*3)(a0),a4
  1548.  lea 258*16(a4),a0
  1549.  
  1550.  move.w #256,d0
  1551.  moveq #0,d1
  1552. CLRLOP:
  1553.  move.l d1,(a0)+
  1554.  move.l d1,(a0)+
  1555.  move.l d1,(a0)+
  1556.  move.l d1,(a0)+
  1557.  move.l d1,(a1)+
  1558.  move.l d1,(a1)+
  1559.  move.l d1,(a1)+
  1560.  move.l d1,(a1)+
  1561.  move.l d1,(a2)+
  1562.  move.l d1,(a2)+
  1563.  move.l d1,(a2)+
  1564.  move.l d1,(a2)+
  1565.  move.l d1,(a3)+
  1566.  move.l d1,(a3)+
  1567.  move.l d1,(a3)+
  1568.  move.l d1,(a3)+
  1569.  move.l d1,(a4)+
  1570.  move.l d1,(a4)+
  1571.  move.l d1,(a4)+
  1572.  move.l d1,(a4)+
  1573.  dbra d0,CLRLOP
  1574.  
  1575.  move.l OPTSPRADDR,a0
  1576.  move.w #44*256+64,(a0)
  1577.  move.w #44*256+2,8(a0)
  1578.  add.l #258*16,a0
  1579.  
  1580.  move.w #44*256+96,(a0)
  1581.  move.w #44*256+2,8(a0)
  1582.  add.l #258*16,a0
  1583.  
  1584.  move.w #44*256+128,(a0)
  1585.  move.w #44*256+2,8(a0)
  1586.  add.l #258*16,a0
  1587.  
  1588.  move.w #44*256+160,(a0)
  1589.  move.w #44*256+2,8(a0)
  1590.  add.l #258*16,a0
  1591.  
  1592.  move.w #44*256+192,(a0)
  1593.  move.w #44*256+2,8(a0)
  1594.  
  1595.  rts
  1596.  
  1597. DRAWOPTSCRN:
  1598.  
  1599.  bsr CLROPTSCRN
  1600.  
  1601. JUSTDRAWIT:
  1602.  
  1603.  move.l #font,a0
  1604.  move.l #MENUDATA,a1
  1605.  move.w OptScrn,d0
  1606.  move.l (a1,d0.w*8),a1
  1607.  
  1608.  move.l OPTSPRADDR,a3
  1609.  add.l #16,a3
  1610.  moveq #0,d2
  1611.  
  1612.  move.w #31,d0
  1613. linelop:
  1614.  move.w #39,d1
  1615.  move.l #SCRTOSPR,a4
  1616.  move.l a3,a2
  1617. charlop:
  1618.  move.b (a1)+,d2
  1619.  lea (a0,d2.w*8),a5
  1620.  move.b (a5)+,(a2)
  1621.  move.b (a5)+,16(a2)
  1622.  move.b (a5)+,32(a2)
  1623.  move.b (a5)+,48(a2)
  1624.  move.b (a5)+,64(a2)
  1625.  move.b (a5)+,80(a2)
  1626.  move.b (a5)+,96(a2)
  1627.  move.b (a5),112(a2)
  1628.  add.w (a4)+,a2
  1629.  dbra d1,charlop
  1630.  add.w #16*8,a3
  1631.  dbra d0,linelop
  1632.  
  1633.  rts
  1634.   
  1635. SCRTOSPR:
  1636.  dc.w 1,1,1,1,1,1,1,258*16-7
  1637.  dc.w 1,1,1,1,1,1,1,258*16-7
  1638.  dc.w 1,1,1,1,1,1,1,258*16-7
  1639.  dc.w 1,1,1,1,1,1,1,258*16-7
  1640.  dc.w 1,1,1,1,1,1,1,258*16-7
  1641.  dc.w 1,1,1,1,1,1,1,258*16-7
  1642.   
  1643. OPTNUM: dc.w 0
  1644. OptScrn: dc.w 0
  1645.  
  1646. MENUDATA:
  1647. ;0
  1648.  dc.l ONEPLAYERMENU_TXT
  1649.  dc.l ONEPLAYERMENU_OPTS
  1650. ;1
  1651.  dc.l INSTRUCTIONS_TXT
  1652.  dc.l INSTRUCTIONS_OPTS
  1653. ;2
  1654.  dc.l CREDITMENU_TXT
  1655.  dc.l CREDITMENU_OPTS
  1656. ;3
  1657.  dc.l ASKFORDISK_TXT
  1658.  dc.l ASKFORDISK_OPTS
  1659. ;4
  1660. ; dc.l ONEPLAYERMENU_TXT
  1661. ; dc.l ONEPLAYERMENU_OPTS
  1662.  dc.l MASTERPLAYERMENU_TXT
  1663.  dc.l MASTERPLAYERMENU_OPTS
  1664. ;5
  1665.  dc.l SLAVEPLAYERMENU_TXT
  1666.  dc.l SLAVEPLAYERMENU_OPTS
  1667. ;6
  1668.  dc.l CONTROL_TXT
  1669.  dc.l CONTROL_OPTS
  1670. ;7
  1671.  dc.l PROTMENU_TXT
  1672.  dc.l CONTROL_OPTS
  1673.  
  1674. ASKFORDISK_TXT:
  1675. ;      0123456789012345678901234567890123456789
  1676.  dc.b '                                        ' ;0
  1677.  dc.b '                                        ' ;1
  1678.  dc.b '                                        ' ;2
  1679.  dc.b '                                        ' ;3
  1680.  dc.b '                                        ' ;4
  1681.  dc.b '                                        ' ;5
  1682.  dc.b '                                        ' ;6
  1683.  dc.b '                                        ' ;7
  1684.  dc.b '                                        ' ;8
  1685.  dc.b '                                        ' ;9
  1686.  dc.b '                                        ' ;0
  1687.  dc.b '                                        ' ;1
  1688.  dc.b '                                        ' ;2
  1689.  dc.b '          INSERT LEVEL DISK             ' ;3
  1690.  dc.b '                                        ' ;4
  1691.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  1692.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  1693.  dc.b '               FINISHES                 ' ;7
  1694.  dc.b '                                        ' ;8
  1695.  dc.b '                                        ' ;9
  1696.  dc.b '                                        ' ;0
  1697.  dc.b '                                        ' ;1
  1698.  dc.b '                                        ' ;2
  1699.  dc.b '                                        ' ;3
  1700.  dc.b '                                        ' ;4
  1701.  dc.b '                                        ' ;5
  1702.  dc.b '                                        ' ;6
  1703.  dc.b '                                        ' ;7
  1704.  dc.b '                                        ' ;8
  1705.  dc.b '                                        ' ;9
  1706.  dc.b '                                        ' ;0
  1707.  dc.b '                                        ' ;1
  1708.  
  1709. ASKFORDISK_OPTS:
  1710.  dc.w -1
  1711.  
  1712.  
  1713. ONEPLAYERMENU_TXT:
  1714. ;      0123456789012345678901234567890123456789
  1715.  dc.b '                                        ' ;0
  1716.  dc.b '                                        ' ;1
  1717.  dc.b '                                        ' ;2
  1718.  dc.b '                                        ' ;3
  1719.  dc.b '                                        ' ;4
  1720.  dc.b '                                        ' ;5
  1721.  dc.b '                                        ' ;6
  1722.  dc.b '                                        ' ;7
  1723.  dc.b '                                        ' ;8
  1724.  dc.b '                                        ' ;9
  1725.  dc.b '                                        ' ;0
  1726. CURRENTLEVELLINE:
  1727.  dc.b '         *** A.F DEMO LEVEL ***         ' ;1 
  1728.  dc.b '                                        ' ;2
  1729.  dc.b '                1 PLAYER                ' ;3
  1730.  dc.b '                                        ' ;4
  1731.  dc.b '               PLAY  GAME               ' ;5
  1732.  dc.b '                                        ' ;6
  1733.  dc.b '            CONTROL  OPTIONS            ' ;7
  1734.  dc.b '                                        ' ;8
  1735.  dc.b '              GAME CREDITS              ' ;9
  1736.  dc.b '                                        ' ;0
  1737.  dc.b '                PASSWORD                ' ;1
  1738.  dc.b '                                        ' ;2
  1739. PASSWORDLINE:
  1740.  dc.b '                                        ' ;3
  1741.  dc.b '                                        ' ;4
  1742.  dc.b '                  QUIT                  ' ;5
  1743.  dc.b '                                        ' ;6
  1744.  dc.b '                                        ' ;7
  1745.  dc.b '                                        ' ;8
  1746.  dc.b '                                        ' ;9
  1747.  dc.b '                                        ' ;0
  1748.  dc.b '                                        ' ;1
  1749.  
  1750. ONEPLAYERMENU_OPTS:
  1751.  dc.w 16,13,8,1
  1752.  dc.w 15,15,10,1
  1753.  dc.w 12,17,16,1
  1754.  dc.w 14,19,12,1
  1755.  dc.w 12,23,16,1
  1756.  dc.w 18,25,4,1
  1757.  dc.w -1
  1758.  
  1759.  
  1760. MASTERPLAYERMENU_TXT:
  1761. ;      0123456789012345678901234567890123456789
  1762.  dc.b '                                        ' ;0
  1763.  dc.b '                                        ' ;1
  1764.  dc.b '                                        ' ;2
  1765.  dc.b '                                        ' ;3
  1766.  dc.b '                                        ' ;4
  1767.  dc.b '                                        ' ;5
  1768.  dc.b '                                        ' ;6
  1769.  dc.b '                                        ' ;7
  1770.  dc.b '                                        ' ;8
  1771.  dc.b '                                        ' ;9
  1772.  dc.b '                                        ' ;0
  1773.  dc.b '                                        ' ;1
  1774.  dc.b '            2 PLAYER  MASTER            ' ;2
  1775.  dc.b '                                        ' ;3
  1776. CURRENTLEVELLINEM:
  1777.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  1778.  dc.b '                                        ' ;5
  1779.  dc.b '               PLAY  GAME               ' ;6
  1780.  dc.b '                                        ' ;7
  1781.  dc.b '            CONTROL  OPTIONS            ' ;8
  1782.  dc.b '                                        ' ;9
  1783.  dc.b '                                        ' ;0
  1784.  dc.b '                                        ' ;1
  1785.  dc.b '                                        ' ;2
  1786.  dc.b '                                        ' ;3
  1787.  dc.b '                                        ' ;4
  1788.  dc.b '                                        ' ;5
  1789.  dc.b '                                        ' ;6
  1790.  dc.b '                                        ' ;7
  1791.  dc.b '                                        ' ;8
  1792.  dc.b '                                        ' ;9
  1793.  dc.b '                                        ' ;0
  1794.  dc.b '                                        ' ;1
  1795.  
  1796. MASTERPLAYERMENU_OPTS:
  1797.  dc.w 12,12,16,1
  1798.  dc.w 6,14,28,1
  1799.  dc.w 15,16,10,1
  1800.  dc.w 12,18,16,1
  1801.  dc.w -1
  1802.  
  1803. SLAVEPLAYERMENU_TXT:
  1804. ;      0123456789012345678901234567890123456789
  1805.  dc.b '                                        ' ;0
  1806.  dc.b '                                        ' ;1
  1807.  dc.b '                                        ' ;2
  1808.  dc.b '                                        ' ;3
  1809.  dc.b '                                        ' ;4
  1810.  dc.b '                                        ' ;5
  1811.  dc.b '                                        ' ;6
  1812.  dc.b '                                        ' ;7
  1813.  dc.b '                                        ' ;8
  1814.  dc.b '                                        ' ;9
  1815.  dc.b '                                        ' ;9
  1816.  dc.b '                                        ' ;1
  1817.  dc.b '             2 PLAYER SLAVE             ' ;4
  1818.  dc.b '                                        ' ;3
  1819.  dc.b '               PLAY  GAME               ' ;2
  1820.  dc.b '                                        ' ;5
  1821.  dc.b '            CONTROL  OPTIONS            ' ;0
  1822.  dc.b '                                        ' ;1
  1823.  dc.b '                                        ' ;3
  1824.  dc.b '                                        ' ;7
  1825.  dc.b '                                        ' ;7
  1826.  dc.b '                                        ' ;3
  1827.  dc.b '                                        ' ;3
  1828.  dc.b '                                        ' ;3
  1829.  dc.b '                                        ' ;4
  1830.  dc.b '                                        ' ;5
  1831.  dc.b '                                        ' ;6
  1832.  dc.b '                                        ' ;7
  1833.  dc.b '                                        ' ;9
  1834.  dc.b '                                        ' ;9
  1835.  dc.b '                                        ' ;9
  1836.  dc.b '                                        ' ;9
  1837.  
  1838.  
  1839. PROTMENU_TXT:
  1840. ;      0123456789012345678901234567890123456789
  1841.  dc.b '                                        ' ;0
  1842.  dc.b '                                        ' ;1
  1843.  dc.b '                                        ' ;2
  1844.  dc.b '                                        ' ;3
  1845.  dc.b '                                        ' ;4
  1846.  dc.b '                                        ' ;5
  1847.  dc.b '                                        ' ;6
  1848.  dc.b '                                        ' ;7
  1849.  dc.b '                                        ' ;8
  1850.  dc.b '                                        ' ;9
  1851.  dc.b '                                        ' ;0
  1852.  dc.b '                                        ' ;1
  1853.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  1854.  dc.b '                                        ' ;3
  1855. PROTLINE:
  1856.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  1857.  dc.b '                                        ' ;5
  1858.  dc.b '                                        ' ;6
  1859.  dc.b '                                        ' ;7
  1860.  dc.b '                                        ' ;8
  1861.  dc.b '                                        ' ;9
  1862.  dc.b '                                        ' ;0
  1863.  dc.b '                                        ' ;1
  1864.  dc.b '                                        ' ;2
  1865.  dc.b '                                        ' ;3
  1866.  dc.b '                                        ' ;4
  1867.  dc.b '                                        ' ;5
  1868.  dc.b '                                        ' ;6
  1869.  dc.b '                                        ' ;7
  1870.  dc.b '                                        ' ;9
  1871.  dc.b '                                        ' ;0
  1872.  dc.b '                                        ' ;1
  1873.  
  1874.  
  1875.  
  1876. SLAVEPLAYERMENU_OPTS:
  1877.  dc.w 12,12,16,1
  1878.  dc.w 15,14,10,1
  1879.  dc.w 12,16,16,1
  1880.  dc.w -1
  1881.  
  1882.  
  1883. PLAYER_OPTS:
  1884. ;      0123456789012345678901234567890123456789
  1885.  dc.b '                 1 PLAYER               '
  1886.  dc.b '             2  PLAYER MASTER           '
  1887.  dc.b '              2 PLAYER SLAVE            '
  1888.  
  1889. LEVEL_OPTS:
  1890. ;      0123456789012345678901234567890123456789
  1891.  dc.b '      LEVEL  1 :          THE GATE      '
  1892.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  1893.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  1894.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  1895.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  1896.  dc.b '      LEVEL  6 :         THE MINES      '
  1897.  dc.b '      LEVEL  7 :       THE FURNACE      '
  1898.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  1899.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  1900.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  1901.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  1902.  dc.b '      LEVEL 12 :           THE PIT      '
  1903.  dc.b '      LEVEL 13 :            STRATA      '
  1904.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  1905.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  1906.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  1907.  
  1908. CONTROL_TXT:
  1909. ;      0123456789012345678901234567890123456789
  1910.  dc.b '                                        ' ;0
  1911.  dc.b '                                        ' ;1
  1912.  dc.b '                                        ' ;2
  1913.  dc.b '                                        ' ;3
  1914.  dc.b '            DEFINE  CONTROLS            ' ;4
  1915.  dc.b '                                        ' ;5
  1916. KEY_LINES:
  1917.  dc.b '     TURN LEFT                  LCK     ' ;6
  1918.  dc.b '     TURN RIGHT                 RCK     ' ;7
  1919.  dc.b '     FORWARDS                   UCK     ' ;8
  1920.  dc.b '     BACKWARDS                  DCK     ' ;9
  1921.  dc.b '     FIRE                       RAL     ' ;0
  1922.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;1
  1923.  dc.b '     RUN                        RSH     ' ;2
  1924.  dc.b '     FORCE SIDESTEP             RAM     ' ;3
  1925.  dc.b '     SIDESTEP LEFT               .      ' ;4
  1926.  dc.b '     SIDESTEP RIGHT              /      ' ;5
  1927.  dc.b '     DUCK                        D      ' ;6
  1928.  dc.b '     LOOK BEHIND                 L      ' ;7
  1929.  dc.b '                                        ' ;8
  1930.  dc.b '             OTHER CONTROLS             ' ;9
  1931.  dc.b '                                        ' ;0
  1932.  dc.b ' PULSE RIFLE      1  PAUSE            P ' ;1
  1933.  dc.b ' SHOTGUN          2  QUIT           ESC ' ;2
  1934.  dc.b ' PLASMA GUN       3  MOUSE CONTROL    M ' ;3
  1935.  dc.b ' GRENADE LAUNCHER 4  JOYSTICK CONTROL J ' ;4
  1936.  dc.b ' ROCKET LAUNCHER  5  KEYBOARD CONTROL K ' ;5
  1937.  dc.b '                                        ' ;6
  1938.  dc.b '               MAIN  MENU               ' ;7
  1939.  dc.b '                                        ' ;8
  1940.  dc.b '                                        ' ;9
  1941.  dc.b '                                        ' ;0
  1942.  dc.b '                                        ' ;1
  1943.  
  1944. CONTROL_OPTS:
  1945.  dc.w 5,6,30,1
  1946.  dc.w 5,7,30,1
  1947.  dc.w 5,8,30,1
  1948.  dc.w 5,9,30,1
  1949.  dc.w 5,10,30,1
  1950.  dc.w 5,11,30,1
  1951.  dc.w 5,12,30,1
  1952.  dc.w 5,13,30,1
  1953.  dc.w 5,14,30,1
  1954.  dc.w 5,15,30,1
  1955.  dc.w 5,16,30,1
  1956.  dc.w 5,17,30,1
  1957.  dc.w 15,27,10,1
  1958.  dc.w -1
  1959.  
  1960. PLOPT: dc.w 0
  1961.  
  1962. INSTRUCTIONS_TXT:
  1963. ;      0123456789012345678901234567890123456789
  1964.  dc.b 'Main controls:                          ' ;1
  1965.  dc.b '                                        ' ;2
  1966.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  1967.  dc.b '            Turn left / right           ' ;4
  1968.  dc.b '          Right Alt = Fire              ' ;5
  1969.  dc.b '        Right Shift = Run               ' ;6
  1970.  dc.b '                  > = Slide Left        ' ;7
  1971.  dc.b '                  ? = Slide Right       ' ;8
  1972.  dc.b '              SPACE = Operate Door/Lift ' ;9
  1973.  dc.b '                  D = Duck              ' ;0
  1974.  dc.b '                  J = Joystick Control  ' ;1
  1975.  dc.b '                  K = Keyboard Control  ' ;2
  1976.  dc.b '                                        ' ;3
  1977.  dc.b '              1,2,3 = Select weapon     ' ;4
  1978.  dc.b '              ENTER = Toggle screen size' ;5
  1979.  dc.b '                ESC = Quit              ' ;6
  1980.  dc.b '                                        ' ;7
  1981.  dc.b '                                        ' ;8
  1982.  dc.b 'The one player game has no objective and' ;9
  1983.  dc.b 'the only way to finish is to die or quit' ;0
  1984.  dc.b '                                        ' ;1
  1985.  dc.b 'The two-player game is supposed to be a ' ;2
  1986.  dc.b 'fight to the death but will probably be ' ;3
  1987.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  1988.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  1989.  dc.b '                                        ' ;6
  1990.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  1991.  dc.b 'have glowing red walls and overhead     ' ;8
  1992.  dc.b 'lights. Useful for getting behind your  ' ;9
  1993.  dc.b ' opponent!                              ' ;0
  1994.  dc.b '  Just a taster of what is to come....  ' ;1
  1995.  dc.b '                                        ' ;0
  1996.  
  1997. INSTRUCTIONS_OPTS:
  1998.  dc.w 0,0,0,1
  1999.  dc.w -1
  2000.  
  2001. CREDITMENU_TXT:
  2002.  
  2003. ;      0123456789012345678901234567890123456789
  2004.  dc.b '    Programming, Game Code, Graphics    ' ;0
  2005.  dc.b '         Game Design and Manual         ' ;1
  2006.  dc.b '            Andrew Clitheroe            ' ;2
  2007.  dc.b '                                        ' ;3
  2008.  dc.b '             Alien Graphics             ' ;4
  2009.  dc.b '             Michael  Green             ' ;5
  2010.  dc.b '                                        ' ;6
  2011.  dc.b '           3D Object Designer           ' ;7
  2012.  dc.b '            Charles Blessing            ' ;8
  2013.  dc.b '                                        ' ;9
  2014.  dc.b '              Level Design              ' ;0
  2015.  dc.b 'Michael Green  Ben Chanter   Jackie Lang' ;1
  2016.  dc.b '     Kai Barrett Charles Blessing       ' ;2
  2017.  dc.b '                                        ' ;3
  2018.  dc.b '           Creative  Director           ' ;4
  2019.  dc.b '              Martyn Brown              ' ;5
  2020.  dc.b '                                        ' ;6
  2021.  dc.b '       Project Manager and Manual       ' ;7
  2022.  dc.b "            Martin O'Donnell            " ;8
  2023.  dc.b '                                        ' ;9
  2024.  dc.b '              Music + SFX               ' ;0
  2025.  dc.b '              Bjorn Lynne               ' ;1
  2026.  dc.b '                                        ' ;2
  2027.  dc.b '      Cover Illustration and Logo       ' ;3
  2028.  dc.b '             Kevin Jenkins              ' ;4
  2029.  dc.b '                                        ' ;5
  2030.  dc.b '      Packaging and Manual Design       ' ;6
  2031.  dc.b '               Paul Sharp               ' ;7
  2032.  dc.b '                                        ' ;8
  2033.  dc.b '             QA and Playtest            ' ;9
  2034.  dc.b '           Phil and The Wolves          ' ;0
  2035.  dc.b '                                        ' ;1
  2036.  
  2037.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2038.  dc.b '                   by                   ' ;5
  2039.  dc.b '            Charles Blessing            ' ;6
  2040.  dc.b '                                        ' ;7
  2041.  dc.b '                Graphics:               ' ;8
  2042.  dc.b '                   by                   ' ;9
  2043.  dc.b '              Mike  Oakley              ' ;0
  2044.  dc.b '                                        ' ;1
  2045.  dc.b '             Title  Picture             ' ;2
  2046.  dc.b '                   by                   ' ;3
  2047.  dc.b '               Mike Green               ' ;4
  2048.  dc.b '                                        ' ;5
  2049.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2050.  dc.b '     level design and plenty of tea     ' ;7
  2051.  dc.b '         generously supplied by         ' ;8
  2052.  dc.b '                                        ' ;9
  2053.  dc.b '              Jackie  Lang              ' ;0
  2054.  dc.b '                                        ' ;1
  2055.  dc.b '    Music for the last demo composed    ' ;2
  2056.  dc.b '       by the inexpressibly evil:       ' ;3
  2057.  dc.b '                                        ' ;8
  2058.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2059.  dc.b '                                        ' ;0
  2060.  dc.b '    Sadly no room for music this time   ' ;1
  2061.  dc.b '                                        ' ;7
  2062.  dc.b '                                        ' ;7
  2063.  
  2064. CREDITMENU_OPTS:
  2065.  dc.w 0,0,1,1
  2066.  dc.w -1
  2067.  
  2068.  
  2069. ;      0123456789012345678901234567890123456789
  2070.  dc.b '                                        ' ;0
  2071.  dc.b '                                        ' ;1
  2072.  dc.b '                                        ' ;2
  2073.  dc.b '                                        ' ;3
  2074.  dc.b '                                        ' ;4
  2075.  dc.b '                                        ' ;5
  2076.  dc.b '                                        ' ;6
  2077.  dc.b '                                        ' ;7
  2078.  dc.b '                                        ' ;8
  2079.  dc.b '                                        ' ;9
  2080.  dc.b '                                        ' ;0
  2081.  dc.b '                                        ' ;1
  2082.  dc.b '                                        ' ;2
  2083.  dc.b '                                        ' ;3
  2084.  dc.b '                                        ' ;4
  2085.  dc.b '                                        ' ;5
  2086.  dc.b '                                        ' ;6
  2087.  dc.b '                                        ' ;7
  2088.  dc.b '                                        ' ;8
  2089.  dc.b '                                        ' ;9
  2090.  dc.b '                                        ' ;0
  2091.  dc.b '                                        ' ;1
  2092.  dc.b '                                        ' ;2
  2093.  dc.b '                                        ' ;3
  2094.  dc.b '                                        ' ;4
  2095.  dc.b '                                        ' ;5
  2096.  dc.b '                                        ' ;6
  2097.  dc.b '                                        ' ;7
  2098.  dc.b '                                        ' ;8
  2099.  dc.b '                                        ' ;9
  2100.  dc.b '                                        ' ;0
  2101.  dc.b '                                        ' ;1
  2102.  
  2103.  
  2104. ********************************************************
  2105.  
  2106. PUTIN32:
  2107.  move.w #31,d2
  2108. p32loop:
  2109.  moveq #0,d5
  2110.  move.l (a0)+,d3
  2111.  move.w d3,d4
  2112.  swap d3
  2113.  move.b d4,d5
  2114.  lsr.w #8,d4
  2115.  
  2116.  muls d0,d3
  2117.  muls d0,d4
  2118.  muls d0,d5
  2119.  lsr.l #8,d3
  2120.  lsr.l #8,d4
  2121.  lsr.l #8,d5
  2122.  move.w d3,d6
  2123.  swap d3
  2124.  move.w d6,d3
  2125.  move.w d4,d6
  2126.  swap d4
  2127.  move.w d6,d4
  2128.  move.w d5,d6
  2129.  swap d5
  2130.  move.w d6,d5
  2131.  and.w #%11110000,d3
  2132.  and.w #%11110000,d4
  2133.  and.w #%11110000,d5
  2134.  lsl.w #4,d3
  2135.  add.w d4,d3
  2136.  lsr.w #4,d5
  2137.  add.w d5,d3
  2138.  move.w d3,2(a1)
  2139.  swap d3
  2140.  swap d4
  2141.  swap d5
  2142.  and.w #%1111,d3
  2143.  and.w #%1111,d4
  2144.  and.w #%1111,d5
  2145.  lsl.w #8,d3
  2146.  lsl.w #4,d4
  2147.  add.w d4,d3
  2148.  add.w d5,d3
  2149.  move.w d3,2+(132*4)(a1)
  2150.  addq #4,a1
  2151.  dbra d2,p32loop
  2152.  
  2153.  
  2154.  rts
  2155.  
  2156. **************************************
  2157.  
  2158. FADEAMOUNT: dc.w 0
  2159. FADEVAL: dc.w 0
  2160.  
  2161. FADEUPTITLE:
  2162.  
  2163.  move.w FADEVAL,d0
  2164.  move.w FADEAMOUNT,d1
  2165. fadeuploop:
  2166.  
  2167.  move.l #TITLEPAL,a0
  2168.  move.l #TITLEPALCOP,a1
  2169.  
  2170. wvb:
  2171.  btst #5,$dff000+intreqrl
  2172.  beq.s wvb
  2173.  move.w #$20,$dff000+intreq 
  2174.  
  2175.  bsr PUTIN32
  2176.  add.w #4,a1
  2177.  bsr PUTIN32
  2178.  add.w #4,a1
  2179.  bsr PUTIN32
  2180.  add.w #4,a1
  2181.  bsr PUTIN32
  2182.  
  2183.  addq.w #4,d0
  2184.  dbra d1,fadeuploop
  2185.  
  2186.  subq #4,d0
  2187.  move.w d0,FADEVAL
  2188.  
  2189.  rts
  2190.  
  2191. CLEARTITLEPAL:
  2192.  PRSDP
  2193.  move.l #TITLEPALCOP,a0
  2194.  move.w #7,d1
  2195. clrpal:
  2196.  move.w #31,d0
  2197. clr32
  2198.  move.w #0,2(a0)
  2199.  addq #4,a0
  2200.  dbra d0,clr32
  2201.  addq #4,a0
  2202.  dbra d1,clrpal
  2203.  PRSDQ
  2204.  rts
  2205.  
  2206. FADEDOWNTITLE:
  2207.  
  2208.  move.w FADEVAL,d0
  2209.  move.w FADEAMOUNT,d1
  2210. fadedownloop:
  2211.  
  2212.  move.l #TITLEPAL,a0
  2213.  move.l #TITLEPALCOP,a1
  2214.  
  2215. .wvb:
  2216.  btst #5,$dff000+intreqrl
  2217.  beq.s .wvb
  2218.  move.w #$20,$dff000+intreq 
  2219.  
  2220.  bsr PUTIN32
  2221.  add.w #4,a1
  2222.  bsr PUTIN32
  2223.  add.w #4,a1
  2224.  bsr PUTIN32
  2225.  add.w #4,a1
  2226.  bsr PUTIN32
  2227.  
  2228.  subq.w #4,d0
  2229.  dbra d1,fadedownloop
  2230.  
  2231.  addq #4,d0
  2232.  move.w d0,FADEVAL
  2233.  
  2234.  rts
  2235.  
  2236. LOADTITLESCRN2:
  2237.  
  2238.  
  2239.  move.l #MEMF_CLEAR,d1
  2240.  move.l #52400,d0
  2241.  move.l 4.w,a6
  2242.  jsr    _LVOAllocMem(a6)
  2243.  tst.l  d0
  2244.  beq    .nomem
  2245.  
  2246.  move.l d0,tempptr
  2247.  
  2248.  move.l #TITLESCRNNAME2,d1
  2249.  move.l #1005,d2
  2250.  move.l doslib,a6
  2251.  jsr -30(a6)
  2252.  move.l d0,handle
  2253.  move.l d0,d1
  2254.  move.l doslib,a6
  2255. ; move.l TITLESCRNADDR,d2
  2256.  move.l tempptr,d2
  2257.  move.l #10240*7,d3
  2258.  jsr -42(a6)
  2259.  move.l doslib,a6
  2260.  move.l handle,d1
  2261.  jsr -36(a6)
  2262.  
  2263.     
  2264.  move.l TITLESCRNADDR,a0
  2265.  move.l tempptr,d0
  2266.  
  2267.  moveq #0,d1
  2268.  lea WorkSpace,a1
  2269.  lea $0,a2
  2270.  jsr unLHA
  2271.  
  2272.   move.l tempptr,a1
  2273.  move.l #52400,d0
  2274.  CALLEXEC FreeMem
  2275.   
  2276. .nomem
  2277.  
  2278.  rts
  2279.  
  2280. tempptr dc.l 0
  2281.  
  2282.  
  2283. GETTITLEMEM:
  2284. ; move.l #2,d1
  2285. ; move.l #10240*7,d0
  2286. ; move.l 4.w,a6
  2287. ; jsr -198(a6)
  2288. ; move.l d0,TITLESCRNADDR
  2289. ; 
  2290.  move.l #$dff000-$2cdfe4,a4
  2291.  
  2292.  move.l #2,d1
  2293.  move.l #258*16*5,d0
  2294.  move.l 4.w,a6
  2295.  jsr -198(a6)
  2296.  move.l d0,OPTSPRADDR
  2297.  
  2298.  rts
  2299.  
  2300. ProtChkJLev1:
  2301.  
  2302. PROTSETUP:
  2303.  incbin "ab3:includes/protsetupenc"
  2304.  
  2305. ; Need to: Decode protection calling
  2306. ; routine
  2307. ; use null values to call it and erase
  2308. ; it from memory
  2309. ; erase this routine and return.
  2310.  
  2311. ; include "ab3:source/protsetup"
  2312.  
  2313.  
  2314. RELEASETITLEMEM:
  2315. ; move.l TITLESCRNADDR,d1
  2316. ; move.l d1,a1
  2317. ; move.l #10240*7,d0
  2318. ; move.l 4.w,a6
  2319. ; jsr -210(a6)
  2320.  
  2321.  move.l OPTSPRADDR,d1
  2322.  move.l d1,a1
  2323.  move.l #258*80,d0
  2324.  move.l 4.w,a6
  2325.  jsr -210(a6)
  2326.  rts
  2327.  
  2328.  
  2329. PROTCALLENC:
  2330. ; incbin "ab3:source/protcallenc.bin
  2331.  
  2332. ; one pass, all instructions executed.
  2333. ; must call protection routine,store
  2334. ; value somewhere, call ask routine,
  2335. ; compare returned value, if correct
  2336. ; set up all values, then return.
  2337.  
  2338.  include "ab3:source_cd32/protcallenc"
  2339.  
  2340. ENDPROT:
  2341.  
  2342. LOADTITLESCRN:
  2343.  
  2344. ; move.l #TITLESCRNNAME,d1
  2345. ; move.l #1005,d2
  2346. ; move.l doslib,a6
  2347. ; jsr -30(a6)
  2348. ; move.l d0,handle
  2349. ; move.l d0,d1
  2350. ; move.l doslib,a6
  2351. ; move.l TITLESCRNADDR,d2
  2352. ; move.l #10240*7,d3
  2353. ; jsr -42(a6)
  2354. ; move.l doslib,a6
  2355. ; move.l handle,d1
  2356. ; jsr -36(a6)
  2357.  
  2358.  rts
  2359.  
  2360. RVAL2: dc.w 0
  2361.  
  2362. SETUPTITLESCRN:
  2363.  
  2364.  rts
  2365.  
  2366.  PRSDR
  2367.  move.l #OPTCOP,a0
  2368.  move.l #rain,a1
  2369.  move.w #255,d0
  2370. putinrain:
  2371.  move.w (a1)+,d1
  2372.  move.w d1,6(a0)
  2373.  move.w d1,6+4(a0)
  2374.  move.w d1,6+8(a0)
  2375.  move.w d1,6+12(a0)
  2376.  add.w #4*14,a0
  2377.  
  2378.  dbra d0,putinrain
  2379.  
  2380. ; Put addr into copper.
  2381.  move.l OPTSPRADDR,d0
  2382.  move.w d0,tsp0l
  2383.  swap d0
  2384.  move.w d0,tsp0h
  2385.  swap d0
  2386.  add.l #258*16,d0
  2387.  move.w d0,tsp1l
  2388.  swap d0
  2389.  move.w d0,tsp1h
  2390.  swap d0
  2391.  add.l #258*16,d0
  2392.  move.w d0,tsp2l
  2393.  swap d0
  2394.  move.w d0,tsp2h
  2395.  swap d0
  2396.  add.l #258*16,d0
  2397.  move.w d0,tsp3l
  2398.  swap d0
  2399.  move.w d0,tsp3h
  2400.  swap d0
  2401.  add.l #258*16,d0
  2402.  move.w d0,tsp4l
  2403.  swap d0
  2404.  move.w d0,tsp4h
  2405.  
  2406.  move.l #nullspr,d0
  2407.  move.w d0,tsp5l
  2408.  move.w d0,tsp6l
  2409.  move.w d0,tsp7l
  2410.  swap d0
  2411.  move.w d0,tsp5h
  2412.  move.w d0,tsp6h
  2413.  move.w d0,tsp7h 
  2414.  
  2415.  move.l TITLESCRNADDR,d0
  2416.  move.w d0,ts1l
  2417.  swap d0
  2418.  move.w d0,ts1h
  2419.  swap d0
  2420.  add.l #10240,d0
  2421.  move.w d0,ts2l
  2422.  swap d0
  2423.  move.w d0,ts2h
  2424.  swap d0
  2425.  add.l #10240,d0
  2426.  move.w d0,ts3l
  2427.  swap d0
  2428.  move.w d0,ts3h
  2429.  swap d0
  2430.  add.l #10240,d0
  2431.  move.w d0,ts4l
  2432.  swap d0
  2433.  move.w d0,ts4h
  2434.  swap d0
  2435.  add.l #10240,d0
  2436.  move.w d0,ts5l
  2437.  swap d0
  2438.  move.w d0,ts5h
  2439.  swap d0
  2440.  add.l #10240,d0
  2441.  move.w d0,ts6l
  2442.  swap d0
  2443.  move.w d0,ts6h
  2444.  swap d0
  2445.  add.l #10240,d0
  2446.  move.w d0,ts7l
  2447.  swap d0
  2448.  move.w d0,ts7h
  2449.  rts 
  2450.  
  2451. RVAL1: dc.w 0
  2452.  
  2453. DummyAdds:
  2454.  dc.l dummy-78935450
  2455.  dc.l dummy-78935450
  2456.  dc.l dummy-78935450
  2457.  dc.l dummy-78935450
  2458.  dc.l dummy-78935450
  2459.  dc.l dummy-78935450
  2460.  dc.l dummy-78935450
  2461.  dc.l dummy-78935450
  2462.  dc.l dummy-78935450
  2463.  dc.l dummy-78935450
  2464.  
  2465. dummycall
  2466.  dc.w $4e75-123
  2467.  
  2468. protspace: ds.l 200
  2469.  
  2470.  include "ab3:source_4000/LEVEL_BLURB"
  2471.  
  2472. font:
  2473.  incbin "ab3:includes/OptFont"
  2474.  
  2475. rain: incbin "ab3:includes/optcop"
  2476.